00010 C LOAD AS FOLLOWS: LOA LP,%LTVRLIB[SYS,MUS] 00100 3 CALL SETCUR(K,L,1) 00110 2 ACCEPT 1,J 00200 CALL RDCUR(K,L) 00400 1 FORMAT(2I) 00500 TYPE 1,K,L 00600 GO TO 3 00700 END